home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / dev / m2 / ModGen.lha / ModGen / GetFile / GetFile.mod < prev    next >
Text File  |  1995-04-17  |  669b  |  24 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    GetFile.mod
  3.   :Contents.   Interface to the GetFile boopsi image by Jan van den Baard
  4.   :Author.     Frank Lömker
  5.   :Copyright.  FreeWare
  6.   :Language.   Modula-2
  7.   :Translator. Turbo Modula-2 V1.40
  8.   :History.    1.0 [Frank] 17-Apr-95
  9.   :Bugs.       no known
  10. ---------------------------------------------------------------------------*)
  11. IMPLEMENTATION MODULE GetFile;
  12.  
  13. FROM Classes IMPORT FreeClass;
  14. FROM GetFile IMPORT InitGet;
  15.  
  16. BEGIN
  17.   GetFileClass := InitGet ();
  18. CLOSE
  19.   IF GetFileClass # NIL THEN
  20.     FreeClass (GetFileClass);
  21.     GetFileClass := NIL;
  22.   END;
  23. END GetFile.
  24.